home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / patches / ami301c.zip / 123COPY.SM$ / 123COPY.SMM
INI File  |  1993-05-13  |  22KB  |  1,463 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Collect information and copy from 123 for Windows
  19.     
  20.     
  21.     
  22.     
  23.     737314514
  24.     25
  25.     731818190
  26.     545
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Table Text
  57.     5
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Table Text
  109.     0
  110.     0
  111. [frm]
  112.     1
  113.     1573060
  114.     360
  115.     9240
  116.     2191
  117.     10381
  118.     0
  119.     1
  120.     1
  121.     1 0 0 0 0 0 0
  122.     0
  123.     16777215
  124.     3
  125.     0
  126.     6400
  127.     0 0
  128.     [frmlay]
  129.         9520
  130.         1831
  131.         1
  132.         0
  133.         0
  134.         1
  135.         9240
  136.         0
  137.         0
  138.         2
  139.         0
  140.         0
  141.         0
  142.         0
  143.         1
  144.         360
  145.         1886
  146.         0
  147.     [tbl]
  148.          3 1 284 86 1440 86 1 43 43
  149.         [h]
  150.              0 280 86 2 0 1 0
  151.              1 280 86 2 0 1 0
  152.              2 280 86 2 0 1 0
  153.         [e]
  154.         [w]
  155.              0 1728 60 6 0
  156.         [e]
  157.         [data]
  158.              0 0 8 0 0 0 0 1 0 0 0 0
  159. <+@><:S+-1><:f240, Arial MT,0,0,0>Clarke
  160.  
  161. >
  162.              1 0 8 0 0 0 0 1 0 0 0 0
  163. <+@><:S+-1><:f240, Arial MT,0,0,0>Aubry
  164.  
  165. >
  166.              2 0 8 0 0 0 0 1 0 0 0 0
  167. <+@><:S+-1><:f240, Arial MT,0,0,0>Kaplan
  168.  
  169. >
  170.         [e]
  171.     [tble]
  172. [l1]
  173.     0
  174. [edoc]
  175. <:#284,9360>' Macro by Charlie Pappas
  176.  
  177. <:#284,9360>
  178.  
  179. <:#568,9360>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  180.  
  181. <:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  182.  
  183. <:#568,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  184.  
  185. <:#284,9360>define    WM_SETFONT    0x30
  186.  
  187. <:#284,9360>declare createdlgfont()
  188.  
  189. <:#284,9360>declare setfont(hdlg, id)
  190.  
  191. <:#284,9360>declare deletefont()
  192.  
  193. <:#284,9360>
  194.  
  195. <:#568,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  196.  
  197. <:#284,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  198.  
  199. <:#284,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  200.  
  201. <:#284,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  202.  
  203. <:#568,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  204.  
  205. <:#284,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  206.  
  207. <:#284,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  208.  
  209. <:#284,9360>define SWP_NOMOVE    0x0002
  210.  
  211. <:#284,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  212.  
  213. <:#284,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  214.  
  215. <:#568,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  216.  
  217. <:#284,9360>
  218.  
  219. <:#284,9360>define    GetMenu(hWnd)
  220.  
  221. <:#284,9360>    DllCall("user,GetMenu,HH", %1)
  222.  
  223. <:#284,9360>define    GetMenuString(hMenu, offset, namep, max, flag)
  224.  
  225. <:#284,9360>    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
  226.  
  227. <:#284,9360>define    GetMenuItemCount(hMenu)
  228.  
  229. <:#284,9360>    DllCall("user,GetMenuItemCount,HH", %1)
  230.  
  231. <:#284,9360>define    MF_BYPOSITION    0x400
  232.  
  233. <:#284,9360>
  234.  
  235. <:#284,9360>Define WM_SETREDRAW            0x000B
  236.  
  237. <:#284,9360>define WM_COMMAND        0x0111
  238.  
  239. <:#284,9360>define SC_RESTORE      0xF120
  240.  
  241. <:#284,9360>define WM_SYSCOMMAND       0x0112
  242.  
  243. <:#284,9360>
  244.  
  245. <:#284,9360>define MyAppName    "<:f240,BArial,255,0,0>Collect<:f><:f240,BArial,255,0,0> & Copy<:f>"
  246.  
  247. <:#284,9360>define MsgBox(msgtext)    Message(%1, myappname)
  248.  
  249. <:#284,9360>
  250.  
  251. <:#284,9360>declare newnow()
  252.  
  253. <:#284,9360>declare done()
  254.  
  255. <:#284,9360>declare insertdata(hdlg, id, val)
  256.  
  257. <:#284,9360>declare hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  258.  
  259.  
  260. declare showami(rect)
  261.  
  262. declare hideami(rect)
  263.  
  264. declare modframe()
  265.  
  266. declare setpagelayout()
  267.  
  268. declare freeglobals()
  269.  
  270. declare winproc(hdlg, id, val)
  271.  
  272. declare box2(hdlg, id, val)
  273.  
  274. declare 123which()
  275.  
  276.  
  277. @Function@function bits(123w)
  278.  
  279. 'singlestep(0)
  280.  
  281. if 123w = 1
  282.  
  283.     rmac = getrunningmacrofile$()
  284.  
  285.     runlater(rmac, 0.1)
  286.  
  287.     exit function
  288.  
  289. endif
  290.  
  291. appname = "<:f240,BArial,255,0,0>123W<:f>"
  292.  
  293. AppTitleBarName = "<:f240,BArial,255,0,0>Lotus 1-2-3 Release 4<:f>"
  294.  
  295. LotusIniAppName = "<:f240,BArial,255,0,0>123W<:f>"
  296.  
  297. ClassName = "<:f240,BArial,255,0,0>123WParent<:f>"
  298.  
  299.  
  300. hwnd = hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  301.  
  302. if hwnd = 0
  303.  
  304.     return 0
  305.  
  306. endif
  307.  
  308.  
  309. if 123which() <<<;> 0
  310.  
  311.     AppTitleBarName = "<:f240,BArial,255,0,0>1-2-3 for Windows<:f>"
  312.  
  313. endif
  314.  
  315.  
  316. dim rect(4)
  317.  
  318. onerror endit
  319.  
  320. oncancel endit
  321.  
  322.  
  323. allocglobalvar("bits", 1)
  324.  
  325. setglobalvar("bits", 0)
  326.  
  327. allocglobalvar("bitsapp", 1)
  328.  
  329. setglobalvar("bitsapp", lotusiniappname)
  330.  
  331. allocglobalvar("framecount", 1)
  332.  
  333. setglobalvar("framecount", 0)
  334.  
  335. allocglobalvar("lotusapphwnd", 1)
  336.  
  337. setglobalvar("lotusapphwnd", hwnd)
  338.  
  339. hwndpro = findwindow("amiprownda", 0)
  340.  
  341. if isiconic(hwnd)
  342.  
  343.     appsendmessage(findwindow("Progman", 0), WM_SYSCOMMAND, SC_RESTORE, 0)
  344.  
  345. endif
  346.  
  347. showwindow(hwndpro, 0)
  348.  
  349. newnow()
  350.  
  351. rmac = getrunningmacrofile$()
  352.  
  353. setdlgcallback(0, "{rmac}!initdlg")
  354.  
  355. setdlgcallback(71, "{rmac}!insertdata")
  356.  
  357. runlater("{rmac}!setappfocus", 0.1)
  358.  
  359. dialogbox(".", "box1")
  360.  
  361. dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  362.  
  363. setdlgcallback(0, "{rmac}!initdlg2")
  364.  
  365. box = dialogbox(".", lotusiniappname)
  366.  
  367. if box = 1
  368.  
  369.     showwindow(hwndpro, 5)
  370.  
  371. else
  372.  
  373.     showwindow(hwndpro, 5)
  374.  
  375.     activateapp(AppTitleBarName)
  376.  
  377. endif
  378.  
  379. freeglobals()
  380.  
  381. return 1
  382.  
  383. endit:
  384.  
  385. showwindow(hwndpro, 5)
  386.  
  387. activateapp(AppTitleBarName)
  388.  
  389. freeglobals()
  390.  
  391. end function
  392.  
  393.  
  394. @Function@function setappfocus()
  395.  
  396. setfocus(getglobalvar$("lotusapphwnd"))
  397.  
  398. end function
  399.  
  400. <+@>
  401.  
  402. <+@>
  403.  
  404. @Function@function helpme()
  405.  
  406. WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 15)
  407.  
  408. end function
  409.  
  410.  
  411.  
  412. @Function@function freeglobals()
  413.  
  414. freeglobalvar("framecount")
  415.  
  416. freeglobalvar("bits")
  417.  
  418. freeglobalvar("lotusapphwnd")
  419.  
  420. freeglobalvar("bitsapp")
  421.  
  422. deletefont()
  423.  
  424. end function
  425.  
  426.  
  427.  
  428. @Function@function initdlg2(hdlg, id, value)
  429.  
  430. for i = 1000 to 1006
  431.  
  432.     setfont(hdlg, i)
  433.  
  434. next
  435.  
  436. end function
  437.  
  438.  
  439.  
  440. @Function@function initdlg(hdlg, id, value)
  441.  
  442. for i = 1000 to 1006
  443.  
  444.     setfont(hdlg, i)
  445.  
  446. next
  447.  
  448.  
  449. dim rect(4)
  450.  
  451. GetWindowRect(hdlg, &rect)
  452.  
  453. x = rect(1)
  454.  
  455. y = rect(2)
  456.  
  457. cx = rect(3) - x
  458.  
  459. cy = rect(4) - y
  460.  
  461. setwindowpos(hdlg, -1, x, y, cx, cy, 0)
  462.  
  463. end function
  464.  
  465.  
  466.  
  467. @Function@function insertdata(hdlg, id, val)
  468.  
  469. setappfocus()
  470.  
  471. <+@>hwnd = getglobalvar$("lotusapphwnd")
  472.  
  473. appname = getglobalvar$("bitsapp")
  474.  
  475.  
  476. which123 = 123which()
  477.  
  478. switch which123
  479.  
  480.     case 0
  481.  
  482.         activateapp("<:f240,BArial,255,0,0>Lotus 1-2-3 Release 4<:f>") ' do it with 123
  483.  
  484.         ID = DDEInitiate("<:f240,BArial,255,0,0>123W<:f>", "<:f240,BArial,255,0,0>system<:f>")
  485.  
  486.         command = "<:f240,BArial,255,0,0><[><[>run(""{{EDIT-COPY}"")]<:f>"
  487.  
  488.         res = DDEExecute(id, command) ' comm
  489.  
  490.         if id <;> 0
  491.  
  492.             DDETerminate(id)
  493.  
  494.         endif
  495.  
  496.     case 1
  497.  
  498.         wparam = 0x42F    'copy from sheet
  499.  
  500.         lparao = 0x00010000
  501.  
  502.         PostMessage(hwnd, wm_command, wparam, lparao)
  503.  
  504.     case 2
  505.  
  506.         wparam = 0x05AC    ' copy from chart
  507.  
  508.         lparao = 0x00000000
  509.  
  510.         PostMessage(hwnd, wm_command, wparam, lparao)
  511.  
  512. endswitch
  513.  
  514.  
  515. activateapp("")
  516.  
  517.  
  518. if getinfo(217, 24, paste) <<<;> 1
  519.  
  520.     return 0
  521.  
  522. endif
  523.  
  524. if getmode() <<<;> 1
  525.  
  526.     layoutmode()
  527.  
  528.     if getmode() <<<;> 1
  529.  
  530.         return 0
  531.  
  532.     endif
  533.  
  534. endif
  535.  
  536. count = getglobalvar$("framecount")
  537.  
  538. count = count + 1
  539.  
  540. if count = 6
  541.  
  542.     PageBreak(1  )
  543.  
  544.     count = 1
  545.  
  546. endif
  547.  
  548. setglobalvar("framecount", count)
  549.  
  550. if 123which() = 0
  551.  
  552.     'pastespecial("OLE Embed")
  553.  
  554.     pastespecial("OLE Link")
  555.  
  556.     if isframeselected() <<<;> 1
  557.  
  558.         pastespecial("<:f240,BArial,255,0,0>Windows Metafile<:f>")
  559.  
  560.     endif
  561.  
  562. else
  563.  
  564.     pastespecial("<:f240,BArial,255,0,0>Windows Metafile<:f>")
  565.  
  566. endif
  567.  
  568. if isframeselected()
  569.  
  570.     modframe()
  571.  
  572.     type("<[>esc]")
  573.  
  574. endif
  575.  
  576. endit:
  577.  
  578. setappfocus()
  579.  
  580. END FUNCTION
  581.  
  582.  
  583.  
  584. @Function@DIALOG    box1
  585.  
  586. <:f240,BArial,255,0,0>-2134376448    9    170    210    185    38    ""    ""    "Collect<:f><:f240,BArial,255,0,0> & Copy<:f><:f240,BArial,255,0,0>"
  587.  
  588. <:f240,BArial,255,0,0>FONT    8    "Helv"
  589.  
  590. <:f240,BArial,255,0,0>118    3    63    14    71    1342373889    "button"    "&Copy to Ami Pro"    0 
  591.  
  592. <:f240,BArial,255,0,0>118    19    63    14    2    1342373888    "button"    "Done"    0 
  593.  
  594. <:f240,BArial,255,0,0>10    2    87    10    1000    1342177280    "static"    "Select the range or chart"    0 
  595.  
  596. <:f240,BArial,255,0,0>10    9    77    10    1001    1342177280    "static"    "you want to print."    0 
  597.  
  598. <:f240,BArial,255,0,0>10    18    81    10    1002    1342177280    "static"    "Choose Copy to Ami Pro."    0 
  599.  
  600. <:f240,BArial,255,0,0>10    27    103    10    1003    1342177280    "static"    "Repeat these steps if you want."    0 
  601.  
  602. <:f240,BArial,255,0,0>2    2    6    10    1004    1342177280    "static"    "1."    0 
  603.  
  604. <:f240,BArial,255,0,0>2    18    6    10    1005    1342177280    "static"    "2."    0 
  605.  
  606. <:f240,BArial,255,0,0>2    27    6    10    1006    1342177280    "static"    "3."    0 
  607.  
  608. END DIALOG
  609.  
  610.  
  611.  
  612. @Function@DIALOG    123w
  613.  
  614. <:f240,BArial,255,0,0>-2134376448    9    90    50    200    67    ""    "amidialog"    "Collect<:f><:f240,BArial,255,0,0> & Copy<:f><:f240,BArial,255,0,0>"
  615.  
  616. <:f240,BArial,255,0,0>FONT    8    "Helv"
  617.  
  618. <:f240,BArial,255,0,0>126    3    68    14    1    1342373889    "button"    "&Switch to Ami Pro"    0 
  619.  
  620. <:f240,BArial,255,0,0>126    19    68    14    2    1342373888    "button"    "Done"    0 
  621.  
  622. <:f240,BArial,255,0,0>3    2    117    10    1000    1342177280    "static"    "You have selected some data to be"    0 
  623.  
  624. <:f240,BArial,255,0,0>3    10    117    10    1001    1342177280    "static"    "included in an Ami Pro document."    0 
  625.  
  626. <:f240,BArial,255,0,0>3    18    117    10    1002    1342177280    "static"    "This data is hot-linked to its origin"    0 
  627.  
  628. <:f240,BArial,255,0,0>3    26    117    10    1003    1342177280    "static"    "worksheet."    0 
  629.  
  630. <:f240,BArial,255,0,0>3    38    117    10    1004    1342177280    "static"    "You may now continue to work in"    0 
  631.  
  632. <:f240,BArial,255,0,0>3    46    117    10    1005    1342177280    "static"    "1-2-3, or you may switch to Ami Pro"    0 
  633.  
  634. <:f240,BArial,255,0,0>3    54    117    10    1006    1342177280    "static"    "to arrange or format your document."    0 
  635.  
  636. END DIALOG
  637.  
  638.  
  639.  
  640. @Function@FUNCTION newnow()
  641.  
  642. @Outline3@defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")
  643.  
  644. if defstyle = ""
  645.  
  646.     defstyle = "<:f240,BArial,255,0,0>_default.sty<:f>"        ' call for the default style sheet if not set in amipro.ini
  647.  
  648. endif
  649.  
  650. New(defstyle  1 1024  )
  651.  
  652. fullpageview()
  653.  
  654. setpagelayout()
  655.  
  656. END FUNCTION
  657.  
  658. @Function@
  659.  
  660. @Function@FUNCTION modframe()
  661.  
  662. count = getglobalvar$("framecount")
  663.  
  664. defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
  665.  
  666. getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
  667.  
  668. top = count * 1.60 * 1440
  669.  
  670. FrameModInit( )
  671.  
  672. FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )
  673.  
  674. FrameModType((128 + 536870976) 0 ""   )
  675.  
  676. FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
  677.  
  678. FrameModFinish( )
  679.  
  680. END FUNCTION
  681.  
  682.  
  683. @Function@function setpagelayout()
  684.  
  685. ModLayoutInit(512  )
  686.  
  687. ModLayoutRightPage(1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )
  688.  
  689. ModLayoutRightLines(0 1 0 1 2  )
  690.  
  691. country = GetProfileString$("<:f240,BArial,255,0,0>intl<:f>", "<:f240,BArial,255,0,0>sCountry<:f>")    ' read win.ini for country settings
  692.  
  693. if country <<<;> "<:f240,BArial,255,0,0>United States<:f>" and country <<<;> "<:f240,BArial,255,0,0>Canada<:f>"
  694.  
  695.     ModLayoutPageSize(16833 11908 1 4  ) ' A4
  696.  
  697. else
  698.  
  699.     ModLayoutPageSize(15840 12240 1 1  ) ' Letter
  700.  
  701. endif
  702.  
  703. ModLayoutRightHeader(1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360  )
  704.  
  705. ModLayoutRightFooter(1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360  )
  706.  
  707. ModLayoutFinish( )
  708.  
  709. END FUNCTION
  710.  
  711.  
  712.  
  713. @Function@FUNCTION hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  714.  
  715. ' loads a Lotus Appliction
  716.  
  717. Define FindWindowLoadLotusApp() DllCall("user,FindWindow,HCC", %1, 0)
  718.  
  719. ONERROR endit
  720.  
  721. ONCANCEL endit
  722.  
  723. hwnd = FindWindowLoadLotusApp(classname)
  724.  
  725. if hwnd <<<;> 0
  726.  
  727.     ActivateApp(AppTitleBarName)
  728.  
  729.     if isiconic(hwnd)
  730.  
  731.         appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)
  732.  
  733.     endif
  734.  
  735.     RETURN hwnd
  736.  
  737. endif
  738.  
  739. app = GetProfileString$("<:f240,BArial,255,0,0>Lotus Applications<:f>", LotusIniAppName, "<:f240,BArial,255,0,0>lotus.ini<:f>")
  740.  
  741. <+@>amidir = getamidirectory$()
  742.  
  743. if app <<<;> ""
  744.  
  745.     appexecname = strfield$(app, 1, ".")
  746.  
  747.     hwnd = FindWindowLoadLotusApp(classname)
  748.  
  749.     if hwnd = 0
  750.  
  751.         if Exec("{appexecname}.exe", "") << 32
  752.  
  753. <+@>            macro = "{amidir}lotuspal.smm!salesmsg"
  754.  
  755. <+@>            calli macro(2)
  756.  
  757.             goto endit
  758.  
  759.         endif
  760.  
  761.     endif
  762.  
  763.     hwnd = findwindowLoadLotusApp(classname)
  764.  
  765.     if hwnd = 0
  766.  
  767.         goto endit
  768.  
  769.     endif
  770.  
  771. else
  772.  
  773. <+@>    macro = "{amidir}lotuspal.smm!salesmsg"
  774.  
  775. <+@>    calli macro(2)
  776.  
  777.     goto endit
  778.  
  779. endif
  780.  
  781. ActivateApp(AppTitleBarName)
  782.  
  783. endit:
  784.  
  785. RETURN hwnd
  786.  
  787. END FUNCTION
  788.  
  789.  
  790.  
  791. @Function@function createdlgfont()
  792.  
  793. ignorekeyboard(1)
  794.  
  795. rmac = getrunningmacrofile$()            'internal windows screen font
  796.  
  797. hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "<:f240,BArial,255,0,0>Helv<:f>")
  798.  
  799. if hfont <;> 1
  800.  
  801.     AllocGlobalVar("{rmac}hfont", 1)
  802.  
  803.     SetGlobalVar("{rmac}hfont", hFont)
  804.  
  805.     Return hfont
  806.  
  807. endif
  808.  
  809. End Function
  810.  
  811.  
  812.  
  813. @Function@function deletefont()
  814.  
  815. ignorekeyboard(1)
  816.  
  817. rmac = getrunningmacrofile$()
  818.  
  819. AllocGlobalVar("{rmac}hfont", 1)
  820.  
  821. hfont = getglobalvar$("{rmac}hfont")
  822.  
  823. if hfont <;> 1
  824.  
  825.     deleteobject(hfont)
  826.  
  827.     freeglobalvar("{rmac}hfont")
  828.  
  829. endif
  830.  
  831. end function
  832.  
  833.  
  834.  
  835. @Function@function setfont(hdlg, id)
  836.  
  837. ignorekeyboard(1)
  838.  
  839. rmac = getrunningmacrofile$()
  840.  
  841. AllocGlobalVar("{rmac}hfont", 1)
  842.  
  843. hfont = getglobalvar$("{rmac}hfont")
  844.  
  845. if hfont << 1
  846.  
  847.     if createdlgfont() << 1
  848.  
  849.         return 0
  850.  
  851.     endif
  852.  
  853. endif
  854.  
  855. hfont = getglobalvar$("{rmac}hfont")
  856.  
  857. SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  858.  
  859. end function
  860.  
  861.  
  862.  
  863. @Function@function 123which()
  864.  
  865. ' Are you running rockport?
  866.  
  867. rockportmenu1 = "<:f240,BArial,255,0,0>Wor&ksheet<:f>"    ' this is the third menu in 123w rel 1.1
  868.  
  869. rockportmenu2 = "<:f240,BArial,255,0,0>&Chart<:f>"        ' this is the third menu in 123w rel 1.1 if in chart mode
  870.  
  871. hmenu = getmenu(findwindow("<:f240,BArial,255,0,0>123WParent<:f>", 0))    ' class name of 123w
  872.  
  873. menucnt = GetMenuItemCount(hmenu)
  874.  
  875. defstr menuname;
  876.  
  877. GetMenuString(hMenu, 2, &menuname, 80, MF_BYPOSITION)
  878.  
  879. if menuname = rockportmenu1 or menuname = rockportmenu2
  880.  
  881.     if menuname = rockportmenu2
  882.  
  883.         return 2
  884.  
  885.     endif
  886.  
  887.     return 1
  888.  
  889. endif
  890.  
  891. return 0
  892.  
  893. END FUNCTION<:p<* >>
  894.  
  895.  
  896. >
  897.  
  898. [Embedded]
  899. 00014595
  900. >
  901. [macsum] 17
  902. bits 0 1 10 52
  903. setappfocus 1171 0 1 113
  904. helpme 1255 0 1 118
  905. freeglobals 1407 0 1 123
  906. initdlg2 1523 3 2 132
  907. initdlg 1676 3 7 139
  908. insertdata 2039 3 9 154
  909. box1 3116 0 -1 215
  910. 123w 3706 0 -1 230
  911. newnow 4421 0 2 245
  912. modframe 4595 0 12 256
  913. setpagelayout 4881 0 2 268
  914. hActivateLotusApp 5370 3 6 284
  915. createdlgfont 6100 0 3 324
  916. deletefont 6324 0 3 336
  917. setfont 6504 2 3 348
  918. 123which 6782 0 6 363
  919. [macse]
  920. 14 bits
  921. 6 0
  922. 5 1
  923. 18 0
  924. 11 00000083
  925. 0 802
  926. 13
  927. 8 2
  928. 0 285 "{2}" 0.1
  929. 6 1
  930. 15
  931. 9
  932. 7 "123W"
  933. 8 3
  934. 7 "Lotus 1-2-3 Release 4"
  935. 8 4
  936. 7 "123W"
  937. 8 5
  938. 7 "123WParent"
  939. 8 6
  940. 16 hActivateLotusApp "{4}" "{5}" "{6}"
  941. 13
  942. 8 7
  943. 6 7
  944. 5 0
  945. 18 0
  946. 11 00000256
  947. 5 0
  948. 15
  949. 9
  950. 16 123which
  951. 13
  952. 5 0
  953. 18 1
  954. 11 00000325
  955. 7 "1-2-3 for Windows"
  956. 8 4
  957. 5 4
  958. 21 8 [X]
  959. 20 00001094
  960. 19 00001094
  961. 0 271 "bits" 1
  962. 0 264 "bits" 0
  963. 0 271 "bitsapp" 1
  964. 0 264 "bitsapp" "{5}"
  965. 0 271 "framecount" 1
  966. 0 264 "framecount" 0
  967. 0 271 "lotusapphwnd" 1
  968. 0 264 "lotusapphwnd" "{7}"
  969. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  970. 13
  971. 8 9
  972. 0 284 "user,IsIconic,HH" "{7}"
  973. 13
  974. 11 00000707
  975. 0 284 "user,FindWindow,HCC" "Progman" 0
  976. 13
  977. 0 1036 [X] 274 61728 0
  978. 0 284 "user,ShowWindow,HHH" "{9}" 0
  979. 16 newnow
  980. 0 802
  981. 13
  982. 8 2
  983. 0 41 0 "{2}!initdlg"
  984. 0 41 71 "{2}!insertdata"
  985. 0 285 "{2}!setappfocus" 0.1
  986. 0 26 "." "box1"
  987. 0 47 112 "{2}!helpme"
  988. 0 41 0 "{2}!initdlg2"
  989. 0 26 "." "{5}"
  990. 13
  991. 8 10
  992. 6 10
  993. 5 1
  994. 18 0
  995. 11 00001017
  996. 0 284 "user,ShowWindow,HHH" "{9}" 5
  997. 10 00001066
  998. 0 284 "user,ShowWindow,HHH" "{9}" 5
  999. 0 38 "{4}"
  1000. 16 freeglobals
  1001. 5 1
  1002. 15
  1003. 9
  1004. 0 284 "user,ShowWindow,HHH" "{9}" 5
  1005. 0 38 "{4}"
  1006. 16 freeglobals
  1007. 6 1
  1008. 15
  1009. 9
  1010. 14 setappfocus
  1011. 0 265 "lotusapphwnd"
  1012. 13
  1013. 0 284 "user,SetFocus,HH" [X]
  1014. 6 0
  1015. 15
  1016. 9
  1017. 14 helpme
  1018. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1019. 13
  1020. 0 798
  1021. 13
  1022. 0 16 [X] "HelpPack.hlp"
  1023. 13
  1024. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 15
  1025. 6 0
  1026. 15
  1027. 9
  1028. 14 freeglobals
  1029. 0 266 "framecount"
  1030. 0 266 "bits"
  1031. 0 266 "lotusapphwnd"
  1032. 0 266 "bitsapp"
  1033. 16 deletefont
  1034. 6 0
  1035. 15
  1036. 9
  1037. 14 initdlg2
  1038. 5 1000
  1039. 8 4
  1040. 5 1006
  1041. 6 4
  1042. 18 2
  1043. 12 00000104
  1044. 10 00000141
  1045. 5 1
  1046. 6 4
  1047. 3 0
  1048. 8 4
  1049. 10 00000026
  1050. 16 setfont "{0}" "{4}"
  1051. 10 00000071
  1052. 6 3
  1053. 15
  1054. 9
  1055. 14 initdlg
  1056. 5 1000
  1057. 8 4
  1058. 5 1006
  1059. 6 4
  1060. 18 2
  1061. 12 00000103
  1062. 10 00000140
  1063. 5 1
  1064. 6 4
  1065. 3 0
  1066. 8 4
  1067. 10 00000025
  1068. 16 setfont "{0}" "{4}"
  1069. 10 00000070
  1070. 5 4
  1071. 21 5 [X]
  1072. 0 284 "user,GetWindowRect,HHN" "{0}" &5
  1073. 5 1
  1074. 22 5
  1075. 8 6
  1076. 5 2
  1077. 22 5
  1078. 8 7
  1079. 5 3
  1080. 22 5
  1081. 6 6
  1082. 3 1
  1083. 8 8
  1084. 5 4
  1085. 22 5
  1086. 6 7
  1087. 3 1
  1088. 8 9
  1089. 0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{6}" "{7}" "{8}" "{9}" 0
  1090. 6 3
  1091. 15
  1092. 9
  1093. 14 insertdata
  1094. 16 setappfocus
  1095. 0 265 "lotusapphwnd"
  1096. 13
  1097. 8 4
  1098. 0 265 "bitsapp"
  1099. 13
  1100. 8 5
  1101. 16 123which
  1102. 13
  1103. 8 6
  1104. 5 0
  1105. 6 6
  1106. 18 0
  1107. 11 00000314
  1108. 0 38 "Lotus 1-2-3 Release 4"
  1109. 0 8 "123W" "system"
  1110. 13
  1111. 8 1
  1112. 7 "[[run(""{{EDIT-COPY}"")]"
  1113. 8 7
  1114. 0 11 "{1}" "{7}"
  1115. 13
  1116. 8 8
  1117. 6 1
  1118. 5 0
  1119. 18 3
  1120. 11 00000301
  1121. 0 9 "{1}"
  1122. 10 00000547
  1123. 5 1
  1124. 6 6
  1125. 18 0
  1126. 11 00000439
  1127. 5 1071
  1128. 8 9
  1129. 5 65536
  1130. 8 10
  1131. 0 284 "User,PostMessage,HHHHJ" "{4}" 273 "{9}" "{10}"
  1132. 10 00000547
  1133. 5 2
  1134. 6 6
  1135. 18 0
  1136. 11 00000547
  1137. 5 1452
  1138. 8 9
  1139. 5 0
  1140. 8 10
  1141. 0 284 "User,PostMessage,HHHHJ" "{4}" 273 "{9}" "{10}"
  1142. 0 38 ""
  1143. 0 1313 217 24 155
  1144. 13
  1145. 5 1
  1146. 18 1
  1147. 11 00000615
  1148. 5 0
  1149. 15
  1150. 9
  1151. 0 29
  1152. 13
  1153. 5 1
  1154. 18 1
  1155. 11 00000704
  1156. 2 210 1
  1157. 0 29
  1158. 13
  1159. 5 1
  1160. 18 1
  1161. 11 00000704
  1162. 5 0
  1163. 15
  1164. 9
  1165. 0 265 "framecount"
  1166. 13
  1167. 8 11
  1168. 6 11
  1169. 5 1
  1170. 3 0
  1171. 8 11
  1172. 6 11
  1173. 5 6
  1174. 18 0
  1175. 11 00000808
  1176. 2 357 1 1
  1177. 5 1
  1178. 8 11
  1179. 0 264 "framecount" "{11}"
  1180. 16 123which
  1181. 13
  1182. 5 0
  1183. 18 0
  1184. 11 00000972
  1185. 2 588 1 "OLE Link"
  1186. 0 800
  1187. 13
  1188. 5 1
  1189. 18 1
  1190. 11 00000959
  1191. 2 588 1 "Windows Metafile"
  1192. 10 00001000
  1193. 2 588 1 "Windows Metafile"
  1194. 0 800
  1195. 13
  1196. 11 00001049
  1197. 16 modframe
  1198. 0 6 "[27]"
  1199. 16 setappfocus
  1200. 6 3
  1201. 15
  1202. 9
  1203. DIALOG box1
  1204. -2134376448 9 170 210 185 38 "" "" "Collect & Copy" 
  1205. FONT 8 "Helv" 
  1206. 118 3 63 14 71 1342373889 "button" "&Copy to Ami Pro" 0 
  1207. 118 19 63 14 2 1342373888 "button" "Done" 0 
  1208. 10 2 87 10 1000 1342177280 "static" "Select the range or chart" 0 
  1209. 10 9 77 10 1001 1342177280 "static" "you want to print." 0 
  1210. 10 18 81 10 1002 1342177280 "static" "Choose Copy to Ami Pro." 0 
  1211. 10 27 103 10 1003 1342177280 "static" "Repeat these steps if you want." 0 
  1212. 2 2 6 10 1004 1342177280 "static" "1." 0 
  1213. 2 18 6 10 1005 1342177280 "static" "2." 0 
  1214. 2 27 6 10 1006 1342177280 "static" "3." 0 
  1215. DIALOG 123w
  1216. -2134376448 9 90 50 200 67 "" "amidialog" "Collect & Copy" 
  1217. FONT 8 "Helv" 
  1218. 126 3 68 14 1 1342373889 "button" "&Switch to Ami Pro" 0 
  1219. 126 19 68 14 2 1342373888 "button" "Done" 0 
  1220. 3 2 117 10 1000 1342177280 "static" "You have selected some data to be" 0 
  1221. 3 10 117 10 1001 1342177280 "static" "included in an Ami Pro document." 0 
  1222. 3 18 117 10 1002 1342177280 "static" "This data is hot-linked to its origin" 0 
  1223. 3 26 117 10 1003 1342177280 "static" "worksheet." 0 
  1224. 3 38 117 10 1004 1342177280 "static" "You may now continue to work in" 0 
  1225. 3 46 117 10 1005 1342177280 "static" "1-2-3, or you may switch to Ami Pro" 0 
  1226. 3 54 117 10 1006 1342177280 "static" "to arrange or format your document." 0 
  1227. 14 newnow
  1228. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1229. 13
  1230. 8 1
  1231. 6 1
  1232. 7 ""
  1233. 18 0
  1234. 11 00000113
  1235. 7 "_default.sty"
  1236. 8 1
  1237. 2 101 1 "{1}" 1 1024
  1238. 2 201 1
  1239. 16 setpagelayout
  1240. 6 0
  1241. 15
  1242. 9
  1243. 14 modframe
  1244. 0 265 "framecount"
  1245. 13
  1246. 8 1
  1247. 0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
  1248. 6 1
  1249. 5 1.60
  1250. 4 0
  1251. 5 1440
  1252. 4 0
  1253. 8 5
  1254. 2 421 1
  1255. 2 416 1 0 1 1 0 16777215 0 0 0 0 0
  1256. 5 128
  1257. 5 536870976
  1258. 3 0
  1259. 2 417 1 [X] 0 ""
  1260. 2 418 1 3816 2160 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
  1261. 2 420 1
  1262. 6 0
  1263. 15
  1264. 9
  1265. 14 setpagelayout
  1266. 2 361 1 512
  1267. 2 363 1 1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640
  1268. 2 366 1 0 1 0 1 2
  1269. 0 286 "intl" "sCountry"
  1270. 13
  1271. 8 1
  1272. 6 1
  1273. 7 "United States"
  1274. 18 1
  1275. 6 1
  1276. 7 "Canada"
  1277. 18 1
  1278. 1 1
  1279. 11 00000325
  1280. 2 362 1 16833 11908 1 4
  1281. 10 00000350
  1282. 2 362 1 15840 12240 1 1
  1283. 2 364 1 1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360
  1284. 2 365 1 1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360
  1285. 2 376 1
  1286. 6 0
  1287. 15
  1288. 9
  1289. 14 hActivateLotusApp
  1290. 20 00000706
  1291. 19 00000706
  1292. 0 284 "user,FindWindow,HCC" "{2}" 0
  1293. 13
  1294. 8 4
  1295. 6 4
  1296. 5 0
  1297. 18 1
  1298. 11 00000222
  1299. 0 38 "{0}"
  1300. 0 284 "user,IsIconic,HH" "{4}"
  1301. 13
  1302. 11 00000210
  1303. 0 1036 "{4}" 274 61728 0
  1304. 6 4
  1305. 15
  1306. 9
  1307. 0 286 "Lotus Applications" "{1}" "lotus.ini"
  1308. 13
  1309. 8 5
  1310. 0 798
  1311. 13
  1312. 8 6
  1313. 6 5
  1314. 7 ""
  1315. 18 1
  1316. 11 00000634
  1317. 0 20 "{5}" 1 "."
  1318. 13
  1319. 8 7
  1320. 0 284 "user,FindWindow,HCC" "{2}" 0
  1321. 13
  1322. 8 4
  1323. 6 4
  1324. 5 0
  1325. 18 0
  1326. 11 00000533
  1327. 0 22 "{7}.exe" ""
  1328. 13
  1329. 5 32
  1330. 18 5
  1331. 11 00000533
  1332. 7 "{6}lotuspal.smm!salesmsg"
  1333. 8 8
  1334. 16 "{8}" 2
  1335. 10 00000706
  1336. 0 284 "user,FindWindow,HCC" "{2}" 0
  1337. 13
  1338. 8 4
  1339. 6 4
  1340. 5 0
  1341. 18 0
  1342. 11 00000621
  1343. 10 00000706
  1344. 10 00000694
  1345. 7 "{6}lotuspal.smm!salesmsg"
  1346. 8 8
  1347. 16 "{8}" 2
  1348. 10 00000706
  1349. 0 38 "{0}"
  1350. 6 4
  1351. 15
  1352. 9
  1353. 6 3
  1354. 15
  1355. 9
  1356. 14 createdlgfont
  1357. 0 32 1
  1358. 0 802
  1359. 13
  1360. 8 1
  1361. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1362. 13
  1363. 8 2
  1364. 6 2
  1365. 5 1
  1366. 18 3
  1367. 11 00000212
  1368. 0 271 "{1}hfont" 1
  1369. 0 264 "{1}hfont" "{2}"
  1370. 6 2
  1371. 15
  1372. 9
  1373. 6 0
  1374. 15
  1375. 9
  1376. 14 deletefont
  1377. 0 32 1
  1378. 0 802
  1379. 13
  1380. 8 1
  1381. 0 271 "{1}hfont" 1
  1382. 0 265 "{1}hfont"
  1383. 13
  1384. 8 2
  1385. 6 2
  1386. 5 1
  1387. 18 3
  1388. 11 00000168
  1389. 0 284 "gdi,DeleteObject,HH" "{2}"
  1390. 0 266 "{1}hfont"
  1391. 6 0
  1392. 15
  1393. 9
  1394. 14 setfont
  1395. 0 32 1
  1396. 0 802
  1397. 13
  1398. 8 3
  1399. 0 271 "{3}hfont" 1
  1400. 0 265 "{3}hfont"
  1401. 13
  1402. 8 4
  1403. 6 4
  1404. 5 1
  1405. 18 5
  1406. 11 00000170
  1407. 16 createdlgfont
  1408. 13
  1409. 5 1
  1410. 18 5
  1411. 11 00000170
  1412. 5 0
  1413. 15
  1414. 9
  1415. 0 265 "{3}hfont"
  1416. 13
  1417. 8 4
  1418. 0 44 "{0}" "{1}"
  1419. 13
  1420. 0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
  1421. 6 2
  1422. 15
  1423. 9
  1424. 14 123which
  1425. 7 "Wor&ksheet"
  1426. 8 1
  1427. 7 "&Chart"
  1428. 8 2
  1429. 0 284 "user,FindWindow,HCC" "123WParent" 0
  1430. 13
  1431. 0 284 "user,GetMenu,HH" [X]
  1432. 13
  1433. 8 3
  1434. 0 284 "user,GetMenuItemCount,HH" "{3}"
  1435. 13
  1436. 8 4
  1437. 0 284 "user,GetMenuString,HHHFHH" "{3}" 2 &5 80 1024
  1438. 6 5
  1439. 6 1
  1440. 18 0
  1441. 6 5
  1442. 6 2
  1443. 18 0
  1444. 1 2
  1445. 11 00000343
  1446. 6 5
  1447. 6 2
  1448. 18 0
  1449. 11 00000331
  1450. 5 2
  1451. 15
  1452. 9
  1453. 5 1
  1454. 15
  1455. 9
  1456. 5 0
  1457. 15
  1458. 9
  1459. 6 0
  1460. 15
  1461. 9
  1462. 00014620
  1463.